This works for us

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject:

This works for us

Creates a PDF using the window title as the file name and attaches it to a mail document which is displayed to the user.

Looks like the code has been modified over ther years and area and nextStatus are no longer used.

You have to have Adobe PDF installed as a printer

Printing Preferences
Adobe PDF Settings tab
Uncheck View Adobe PDF results

Action on a form

Sub Click(Source As Button)

Call NotifyFLS(doc, "", "")

End Sub

Script Library

Sub NotifyFLS (doc As NotesDocument, area As Variant, nextStatus As String)

On Error Goto errTrap

Dim uidoc As NotesUIDocument
Dim mailFile As Variant
Dim mailDb As NotesDatabase
Dim mailDoc As NotesDocument
Dim body As NotesRichTextItem
Dim isMailDb As Boolean
Dim reportSubject As String
Dim reportFile As String
Dim x As Variant

Set uidoc = ws.CurrentDocument
Call uidoc.Print(1, 0, 0, False, "Adobe PDF")
Sleep 1

mailFile = Evaluate("@MailDbName")
Set mailDb = session.GetDatabase(mailFile(0), mailFile(1))
Set mailDoc = mailDb.CreateDocument
mailDoc.SendTo = YourRecipient
mailDoc.SendTo = Arrayunique(Arrayappend(mailDoc.SendTo, YourRecipient))
mailDoc.SendTo = Arrayunique(Arrayappend(mailDoc.SendTo, Your Recipient))
mailDoc.Form = "Memo"

reportSubject$ = "YourSubject"
mailDoc.Subject = reportSubject$

Set body = New NotesRichTextItem(mailDoc, "body")

reportFile$ = "C:\Temp\" & uidoc.WindowTitle & ".pdf"

Call body.AddNewline(2)
Call body.EmbedObject(EMBED_ATTACHMENT, "", reportFile$)
Call ws.EditDocument(True, mailDoc)
Sleep 1
Kill reportFile$

errTrap:
If Err = 4433 Then
Messagebox "You do not have the Adobe PDF printer installed.", MB_OK, "Printer Error"
Exit Sub
Else
Set mailDoc = New NotesDocument( db )
mailDoc.Form = "Memo"
mailDoc.SendTo = YourRecipient
mailDoc.Subject = db.Title & " - Action: " & "Adobe PDF" & " - Failed"
mailDoc.Body = "Error #: " & Err & "; Error: " & Error & " Line: " & Erl
Call mailDoc.Send( False )
Msgbox "Module: " & Getthreadinfo(1) & "; Error #: " & Err & "; Error: " & Error & " Line: " & Erl
Exit Sub
End If

End Sub

Feedback response number WEBBAE7KBS created by ~Sigmund Zekfreezenobu on 09/27/2016